Is there a way that I can code this so that the directory is appended? Kinda of like the @Subset(@DbName; -1)?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newsdoc As NotesDocument
Dim body As NotesRichTextItem
Dim Webbage As String
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Webbage = db.FileName
If collection.Count < 1 Then
Messagebox("Please Select a Page to Preview")
Else
Set w = New NotesUIWorkspace
w.UrlOpen("
http://www.storycounty.com/"+Webbage+"/0/"+doc.UniversalID+"?OpenDocument")
End If
End Sub